5 REM SOUND 2
10 FORI=54272TO54295:POKEI,0:NEXT
20 POKE54296,15
30 POKE54277,8
35 POKE54278,255
40 POKE54276,21
45 FORK=1TO15
50 A=20:FORY=1TO2
60 B=90:POKE54273,A
70 FORI=1TO6
75 POKE54287,B
80 B=B*.3
90 A=A*1.1
100 NEXTI
110 NEXTY
120 NEXTK
130 POKE54278,15